home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 January / enter-2004-01.iso / files / maxima-5.9.0.exe / {app} / share / maxima / 5.9.0 / demo / rombrg.dem < prev    next >
Encoding:
Text File  |  2003-02-09  |  385 b   |  31 lines
  1. define_variable(pi,apply('ev,[%pi,numer:true]),float)$
  2.  
  3. DEFINE_VARIABLE(FREQ,3.3,FLOAT,"The frequency in radian/second")$
  4.  
  5. V(X):=(MODEDECLARE(X,FLOAT),X*ABS(SIN(FREQ*X)))$
  6.  
  7. H1(FREQ):=ROMBERG('V,0,PI)$
  8.  
  9.  
  10. /* An alternative syntax is */
  11.  
  12. H2(FREQ):=ROMBERG(X*ABS(SIN(FREQ*X)),X,0,PI)$
  13.  
  14.  
  15. H1(5.5);
  16.  
  17. H2(5.5);
  18.  
  19. TRANSLATE(H1,V,H2)$
  20.  
  21. H1(5.5);
  22.  
  23. H2(5.5);
  24.  
  25. COMPILE(functions);
  26.  
  27. H1(5.5);
  28.  
  29. H2(5.5);
  30.  
  31.